       01  rQ074Input.
         03  fill--0 PIC X(16).
         03  rq074--of--bp--id PIC X(9).
         03  rq074--add--inq--cd PIC X(3).
         03  rq074--user--id PIC X(30).
         03  rq074--ips--pub--disc--cd PIC X(5).
         03  rq074--rec--cnt1 PIC 9(3).
         03  rq074--details1 OCCURS 50 TIMES.
           05  rq074--class--of--trade PIC X(2).
         03  rq074--rec--cnt2 PIC 9(3).
         03  rq074--details2 OCCURS 12 TIMES.
           05  rq074--max--amt2 PIC S9(9) COMP.
           05  rq074--disc--pct2 PIC S9(2)V9(3) COMP-3.
         03  rq074--rec--cnt3 PIC 9(3).
         03  rq074--details3 OCCURS 12 TIMES.
           05  rq074--max--amt3 PIC S9(9) COMP.
           05  rq074--disc--pct3 PIC S9(2)V9(3) COMP-3.
       01  RQ074OutputPart.
         03  rq074--msg--area PIC X(100).
         03  rq074--sqlcode PIC 9(9).
         03  rq074--more--data PIC X(4).
         03  rq074--timestamp PIC X(26).
         03  rq074--rec--cnt4 PIC 9(3).
         03  rq074--details4 OCCURS 12 TIMES.
           05  rq074--max--amt4 PIC S9(9) COMP.
           05  rq074--disc--pct4 PIC S9(2)V9(3) COMP-3.
         03  rq074--rec--cnt5 PIC 9(3).
         03  rq074--details5 OCCURS 12 TIMES.
           05  rq074--max--amt5 PIC S9(9) COMP.
           05  rq074--disc--pct5 PIC S9(2)V9(3) COMP-3.
